home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / bin / bepsf next >
Text File  |  1999-09-16  |  2KB  |  83 lines
  1. #!/bin/csh 
  2. #-------------------------------------------------------------------
  3. # Usage : BEpsf [-orientation] filename.ps 
  4. # filename.ps is a file from Scilab
  5. # orientation is p[ortrait] or l[andscape]
  6. # produces a filename.eps which can be printed or inserted in an other
  7. # Postscript document 
  8. #--------------------------------------------------------------------
  9. if ($?SCI == 0) then 
  10.   setenv SCI "/store3/sci/scilab-2.2"    
  11. endif
  12. set IMP=$SCI/imp/NperiPos.ps
  13. switch ($#argv)
  14. case 1: 
  15.   set orientation=-p
  16.   set FILE=$1
  17.   breaksw
  18. case 2: 
  19.   set orientation=$1
  20.   set FILE=$2
  21.   breaksw
  22. default:
  23.   echo "Usage : `basename $0` [-orientation] filename.ps" 
  24.   exit 1
  25. endsw
  26.  
  27. switch ($orientation)
  28. case -l: 
  29. case -p:
  30.   breaksw
  31. case -landscape: 
  32.   set orientation=-l
  33.   breaksw
  34. case -portrait
  35.   set orientation=-p
  36.   breaksw
  37. default:
  38.   echo "Usage : `basename $0` -l[andscape] filename.ps" 
  39.   echo "Usage : `basename $0` -p[ortrait] filename.ps" 
  40.   exit 1
  41. endsw
  42.  
  43.  
  44. set base=$FILE:r
  45. set base=$base:r
  46.  
  47. if ( `grep "PS-Adobe-2.0" $FILE | wc -l` != 0) then 
  48.     echo "This file doesn't need to be processed through `basename $0`"
  49.     exit
  50. endif
  51. if ( $base.eps == $FILE) then 
  52.     echo Warning : Renaming your original file $FILE:r.ps since I create a $FILE:r.eps file
  53.     mv $FILE $FILE:r.ps
  54.     set FILE=$FILE:r.ps
  55. endif
  56. if ( -f $base.eps ) then 
  57.     echo File $base.eps exists, moving it to $base.eps.bak
  58.     mv $base.eps $base.eps.bak 
  59. endif 
  60. #echo $base $orientation
  61. switch ($orientation)
  62. case -p: 
  63.   echo "%\!PS-Adobe-2.0 EPSF-2.0" >! $base.eps
  64.   echo "%%BoundingBox: 0 200 600 624" >> $base.eps
  65.   cat $IMP  $FILE | grep -v "%\!PS-ADOBE" >> $base.eps
  66.   sed -e "s/\[0.5 10 div 0 0 0.5 10 div neg  0 2120 10 div\] concat/[0.5 5 div 0 0 0.5 5 div neg  0 3120 5 div] concat/" $base.eps > $base.eps.$$
  67.   \rm -f $base.eps
  68.   mv $base.eps.$$ $base.eps
  69.   breaksw
  70. case -l: 
  71.   echo "%\!PS-Adobe-2.0 EPSF-2.0" >! $base.eps
  72.   echo "%%BoundingBox: 0 0 600 780" >> $base.eps
  73.   cat $IMP  $FILE | grep -v "%\!PS-ADOBE" >> $base.eps
  74.   echo "1.3 1.3  scale" >> $base.eps
  75.   sed -e "s/\[0.5 10 div 0 0 0.5 10 div neg  0 2120 10 div\] concat/90 rotate 10 640 neg translate [0.5 5 div 0 0 0.5 5 div neg  0 3120 5 div] concat/" $base.eps > $base.eps.$$
  76.   \rm -f $base.eps
  77.   mv $base.eps.$$ $base.eps
  78.   breaksw
  79. endsw
  80. \rm -f $FILE
  81.  
  82.  
  83.